home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Software of the Month Club
/
Amiga Latest & Greatest Volume 226 (1995)(SOMC)(Disk 2 of y)[SMCxxxC30Ix].zip
/
Amiga Latest & Greatest Volume 226 (1995)(SOMC)(Disk 2 of y)[SMCxxxC30Ix].adf
/
BlocNotes
/
shownote.rexx
< prev
Wrap
OS/2 REXX Batch file
|
1996-02-09
|
408b
|
25 lines
/*ShowNote.rexx*/
IF POS('blocnotes.rexx' , SHOW('Ports'))=0 THEN do
call delay(150)
IF POS('blocnotes.rexx' , SHOW('Ports'))=0 THEN exit
end
address 'blocnotes.rexx'
options results
if words(Arg(1))>0 then do
if Arg(1)='?' then do
say 'USAGE: SHOWNOTE <pattern>'
exit
end
text=Arg(1)
SEARCH text
id=result
if id=0 then do
say 'Not found.'
end
SHOW id
end